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* MAIN PROGRAM FOR CONFIGURATION TABLE ~CCONFIG- 
* ADD , DELETE ENTRIES TO CONFIGURATION TABLE 
FEO II GIG IGG ICI Ig a IOI GOI RIG ok ak i oko ak gokok dok keak a 
PID DC C'38F0! PROGRAM NAME 
LEVEL DC X'00' PROGRAM RELEASE LEVEL 
DC X00! RESERVED 
INADR DC A (BEGIN INITIAL EXECUTION POINTER 
DEVPT DC A(DATAB DEVICE ID TABLE POINTER 
RTNE DC X'38FO! CURRENT ROUTINE # MAP) 
CKPT DC X'00018 CURRENT CHECKPOINT # (STEP) 
OPTN1 DC A (*-* @180E 
OPTN2 DC A (*-* 
* DEVICE ADDRESS TABLE 
DATAB DC A (0) NUMBER OF DEVICES 
DEVAD EQU- * 
DEVAD1 DC x'0O! DEVICE ADDRESS @1814 
DEVAD2 DC x*00! DEVICE TY 
DEVAD# 8x'00' VICE DATA - 8 BYTES 
Me He ee Re ee hee i he he ee He AK 2K he he ae He 2 2 a oe ie he ae fe ah ae 2 a a ok 2h a ae oe 2k ate fe ae ae of a ac ok fk fe ake ke cK 2k 2 ok 


eA eH He 3 eH ee Re a He ee 2 ee ae 2 Re a he fe 2 2 a Fe a i fe 2h a eee ek 2k fe he ae 2 a 2c ac a 2c ae i ake ae ae ae ake ic ae ok 2 oe i 2 fe ok ie eo 
BEGIN EQU * 


BEGIO B BEGIQ NOTE: THIS BRANCH ADDRESS MAY BE 

* MODIFIED TO BEGIP. 

BEGIP B OLADR* RETURN FROM DCP WITH CONFIG INFO 
BEGIO B CYROO 

RI ROR IO OR OR IG ICI IO IO CIO a tok ik dk aki kk 
* FIXED LOCATION DATA 

III IORI IG I IO IG IIR IGG IIS IO I IOI I RI aR ak 
BSAW B BSAW1 B TO SORT AND WRITE @182A 
BSARA DC A (*-*) RETURN ADDRESS @182E 
AOR GRR RI GR III ICI GIO RIOR IOI IG I I FO I I IO Ie 4 ok 
IPLPS DC X*Q0O008 SWITCH — IPL PASS 01830 
ARI I III I I IOC I I IO Rg I IIR II I I FO IRR RIC I aK 
TCSFL DC X'0O0O! TCS FLAG HAVE 1 ®@18 32 
TCSFA DC X*00! TCS FLAG ALT CON O=PRI 1=COM 1001833 
TCS1A DC X*0000! TCS 1ST FOUND ENTRY ADDRESS @71834 
ARO IG GIO IRC GIG IR III I A FI I OR Fk ROK ca ok 
BSAOR DC A (*-*) OVERLAY RETURN ADDRESS SAVE ®1836 
A OI IOC IC OR I III BGA IO IGOR I I OR 90K I RK 


O OPTION 


U38FO - CONFIGURATION UTILITY PROGRAM P/N=1635015 EC=755551 PAGE 01 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001800 3 U38FO START X*1800! 
CC SSS SLT FSET TELE LSS SES TE SE SES SS TESTES TSE SES TELE LS TES TESTES SS SPST ESS SS SSE SS 
5 * * 
6 * 440% PREREQUISITES CK * 
8 * NONE * 
PROMOTE TT SL SSE TSS SS SST SEES SES TS FEST FT STS SS ST SS ST TSS TST T TESTS FS TTS STS TT TS SF STS tS 
11° * * 
12 + 04K MODIFICATIONS fet * 
14 * 1 ADD - SHIFT INPUT GUIDE RIGHT 2 CHAR FOR HEX ENTRY DCP. x 
15 * 2 MODIFY - SHIFT OLD ENTRY GUIDE RIGHT 2 CHAR FOR HEX ENTRY DCP. * 
16 * 3 DELETE - ONLY ALLOW REAL ENTRIES TO BE DELETED. * 
17 * & INIT CONFIG - DO NOT PRINT CC ERRORS DURING INITIAL CONFIG. * 
18 * 5 SYSTEM TYPE - A) SET DURING AUTO CONFIG. x 
19 * CHECK DURING NORMAL CONFIG RUN. * 
20 * Cc) FUN 6 - ENTER 23 FOR 4953 & 25 FOR 4955. x 
21 * 6 FUNCTION 9 - PRINT SYSTEM EQUIPMENT. * 
22 * 7 ADD - GUIDELINE FROM AATT FFO1 0203 0405 0607 0000 0000 IDID * 
23 * TO  AATT 0203 0405 0607 0809 0000 0000 IDID * 
24 * 8 CONFIG PRINT - NO PRINT CONFIG AFTER 2ND OO-NOCHANGE FUNCTION. * 
25 * E. NO PRINT AFTER SORT. * 
26 * 9 READID - GET CC=1, RESET DEVICE & TRY 2ND READID. * 
27 * 10 4973 - DEVICE TYPE INCLUDED. x 
28 * 11 4973 - ALLOWED AS ALTERNATE CONSOLE. x 
29 * 12 RELOCATION TRANSLATOR - DELETED. * 
30 * 13 CONFIG TABLE LENGTH - EXTENDED TO X'3FFF', 255 ENTRIES x 
31 * 14 ADD MAP=38FO AND STEP=0001. * 
32 * 15 PRINT NAMES FOR: A) SIO ATTACHMENT * 
33 * B) OEMI * 
34 x C} FLOATING POINT * 
35 * 16 CORRECT PROBLEM IF ALT CONSOLE ENTERED INCORRECTLY. x 
36 * 17 4978 - DISPLAY DEVICE TYPE INCLUDED. x 
37 * 18 4978 - DISPLAY ALLOWED AS ALTERNATE CONSOLE. * 
38 * 19 PROGRAMMABLE COMMUNICATION SYSTEM INCLUDED. 'COMM Sys'* * 
39 * 20 OEMI CHANGED TO OEM DPC. * 
40 * 21 CHECK CHAIN LENGTH AFTER SORT NOW. * 
41 * 22 NEW FRONT END PROCEDURE FOR IPL RUN. * 
42 * 23 MESSAGES CHANGED. x 
43 * 24 CHECK FOR DUPLICATE DEVICE ADDRESSES IN CONFIGURATION TABLE. * 
44 * 25 PRINTER AS ALT CONSOLE WILL USE CONFIG FUNCTIONS. * 
45 * 26 FUNCTION 'OA' = FLOATING POINT. x 
46 * 27 FUNCTION 'OB' = OEMIA BASIC ENTRY. * 
47 * 28 FUNCTION 'OF' = DO INITIAL SYSTEM CONFIGURATION. * 
48 * 39 PRINT "INVALID ENTRY! FOR INCORRECT FUNCTION ENTRIES. * 
ug whe HK He ae fe Ak He ae she fe ae ake ae He He a he he he He he He he HK AE He he he ake He ke oe ae ee ee oe ee af he ie ee ie ae oe he ie he fe ade ie eK af oe fe ofc i ok ake ee oe ok ok 
50 * * 
51 * 44 REA'S INCORPORATED #4 * 
52 * * 
23 * NONE + 
55 FS SSS SPSS PSS SPS PSPS LS SS SSS SSS SLES SSS SESS SS SESS SSS SESE SS SLL SSS SPSL LSS SS SS Ss 3 
56 * * 
27 ‘ tok SPECIAL INSTRUCTIONS 4% * 
59 * NONE : 
GV A Ra eH a he a he ae ee Re he ee i ee a ee He he He ae 2 ee a I ak a 2 ee a oe 2 ie ae he 2 i ote a ok ee ke i ok otek ok ek kk ok 
62 * * 
63 * 40340 K E. C. HISTORY eke K * 
65 * DATE 010CT76 DATE O2DEC76 DATE 15MAR77 DATE 22APR77 * 
66 * E.C. 578468 £E.C. 578469 -C. 578714 #E.C. 578751 : 
68 * DATE 10JUN77 DATE 01JUL77 DATE 12APR78 DATE 08AUG78 * 
69 + E.C. 578625 §E.C. 578980 -C. 755404D E.C. 755404 : 
71% DATE O6NOV78 DATE DATE DATE x 
32 * E.C. 755551 ~==£E.C. E.C. E.C. * 
7 ORIG GR CII I II II IG IGRI GIG IO ak ak ak ak aka ak 
16 
77 
78 
79 
001800 F3F8C6FO 80 
001804 00 81 
001805 00 82 
001806 181E 83 
001808 1812 84 
00180A 38F0 85 
00180C 0001 86 
00180E 0000 87 
001810 0000 88 
001812 0000 90 
001814 91 
001814 00 92 
001815 00 93 
001816 0000000000000000 94 
97 
00181E 98 
00181E 6802 1826 122 
001822 6812 1856 101 
001826 6802 19B4 102 
103 
104 
105 
00182A 6802 1B7A 106 
00182E 0000 197 
001830 0000 109 
001832 00 111 
001833 00 112 
001834 0000 113 
001836 0000 115 
001838 6802 1A88 7 


B CXINF GO D TABLE a1 
AIC IIE II OIC IG I OR RI IK a gar i I RRR AO ROR FOR II I ia ak 


DOCS OOOOSOSOS COSCOSCOOCCOCOCOOOCOCOOCOOO SCO 


OD BDOOCOSSCOCOCOOCCSC COOCSCOVOOOCOCOOOCOOOCOOCOoO 
IAD) ceed ceed cee ce cane eed eed ad cd ed ed nh ed od od etd CO OOO OOOCOCOOOCOOOO 


© 


COSSOOOSOCOSSO OSOSOSSOSGOCOOCOOOOCOOCCOSCO 
GOOOCCSOSCOCSOSOS OOSSCOOSSCSCOOCCOOCOOOCOOCSoSO 
COMO OWS OONNIES WN SOMO WY OONOAUIE WINS 


oO 
© 
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WWWWWWWWWNHNNNNNNDNDDD 28 ad od oh 8 dd dO OOO COCO MUO DOWD OOO OD OWO DODO OWI III SII SSI SIAAAAAAAAANINIMNINNIN NINES SESS SESS SWWWWWWWWWWHODNNNNNNDND 
DWYANE WN a OOO ID UIEE WIN OD ONDE WN tO OWN SWN OW OWS OUIWN 8 OO SONU WIN) td O10 © SIO UIE WN tO MONIQUE WN = OW OANID UIE WN et OV ONONUIE WN) et OU ODNIOUEWN @OWOWUNOAUNEWN sO 
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DOOOSCOSOS COOSCCOO COOSCHOSO COSCSCOCODOOCVDOOOCOSCOOSCOSCSCOOSOOOOOOCCOSCOCOOCCOOCOCOO 
COGS OSOSCOCOOOCOSO COSC SCSCOCDOOOOCOCSCOCOOSCOCOOOSCSCOCOOOCCOCOOCCOCCOCOCOOCOSOOCOCOOOCOO 
DODOOCO COOSCSCOSCO COSTS OCOO COO CO CCOCOOCOCCOCO=@DOODCOOCDDOOODOCOCOOCOSCOOCOCOCOCOOCo 
4Q2DO COO OCSCOSCOOSCSO OCOGCOSOOCSCCOCOCOCOCOOCOCOCOSCOCDOCOCOCOCOCOOCOCOCOCOOCCOCOCOCOOCOOCOo 
DOIN FS SWWe eee mis WOOO COO COCOCOCOOCOCOCOCOaAND ENE J BMOOCWOOOCOCOCOOOOCOCOOCOOCSO 
OCOOCWNONUNNY ONS BOAO OW OOWHAUIEWN BOOLOOCOCE sm OMOWH YD OW OANE WN asOO 


U38FO - CONFIGURATION UTILITY PROGRAM P/N=1635015 EC=755551 PAGE O1A 
OBJECT TEXT 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
Kk ok kkk ek tok kok tok kk kkk kok kok tok kkk kk dak kok dk kok KK KK KK KK KK EK KK 
* * 
+ SYSTEM EQUATES - WAS MEMBER DCPEQUNA 
PSR PSL SS SSE SESE ERE SES SETS SESE SETS TSE SS EP ES EET SS SST SPSS STS ST ET SS TST Tt et fe 
SM EQU 1 SUMMARY MASK DISABLE OR 
* ENABLE CODE 
AT EQU 2 ADDRESS TRANSLATOR ENABLE OR 
xk DISABLE CODE 
We He he He he he 2h ae fe 2 he eK he ie he he he 2 ae he he He hc eh 2h 2c ae 2c ak ah caf ie he cic oe i a ck 2 i ei i he i Ke oe ke KK I ok 
4 x 
* EQUATED NAMES FOR SUPPORTED SVC'S * 
Mee Hee Hee He Me He 2k He he He He he He he he He He he he 2h ae ee he ic i hc he 2 ei hc i a Ke oe He ac oc He ee fe he he ce a he he oe ei ae ek at ae ic 
OUT EQU. 0 OUT SVC 
OUTIN FOU 1 OUTIN SVC 
IDLE EQU 2 IDLE SVC 
ASCII EQU 3 HEX TO ASCII SVC 
CHNGE EQU) 4 CHANGE LEVEL SVC 
PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
EXIT EQU 6 EXIT SVC 
TERM EQU 7 TERMINATE SVC 
RESET EOU 8 RESET DEVICE SVC 
RID EFOQU 9 READ ID SVC 
START EQU 10 START CYCLE STEAL SVC 
STCSS EQU 11 START CYCLE STEAL STATUS SVC 
PREP EQU 12 PREPARE DEVICE SVC 
READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
RSTAT EQU 15 READ STATUS SVC 
WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
CTRL EQU 18 CONTROL SVC 
RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SYC 
cics EU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
HIO  EQU 21 HALT I/O SVC 
REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
HALT EQU 24 HALT SVC 
ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
HTOE BOD 26 HEX TO EBCDIC SVC (STRING 
ATOH EQU 27 ASCII TO HEX SVC (STRING 
HTOA EQU 28 HEX TO ASCII SVC (STRING 
ETOA EOQU 29 EBCDIC TO ASCII SVC (STRING 
ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
READI EQU 31 READ DATA SETS FOR MDI/O0TIL 
WRITI EQU 32 WRITE DATA SETS FOR UTIL 

32 NUMBER OF HIGHEST VALID SVC 

Me He He Me He He He Me she He he He he he 3 He a ke 


* 
EQUATES USED BY DCP * 


* 
He Ae Ae ae Me ae ee Be He Oe a he He he He a he he he le He he He he He ee he he he he he ee a 2 2 a 2c a ie a a a i he a KK ok 


* 
VLDSV EQU 

PSS LSS SSS ETL SS TS SF SESE SS SSS TP SSE SSS TLS SP SSS SS SSS SF 
* 

* 


AUTO EQU AUTOMATIC MODE IND 
TPGSW EOu 0 TERMINATE PGM SW 

LOOP EQU 1 LOOP PGM IND 

OFF EQU 2 TURN OPT BITS OFF 

ON EQU 2 TURN OPT BITS ON 

UTIL EQU 3 UTILITY REQUESTING DATA 
LODED EQU 4 PGM LOADED 

STOP FOU 6 STOP AFTER MSG OUT 
ALTDV EQU 7 ALTERNATE OUTPUT DEV ASSIGNED 
NXTVT EOQU 8 TAKE NEXT DATA SET IND 
IRD EQU 10 MDI READ REQUEST 

RIMDI EQU 11 MDI RETURN REQ 

TUIDS EQU 12 SAVE THE T.U0. I.D. 
LDIAG EQU 13 LOOP ALL DIAG PACKAGE 
CNRUN EQU 14 UNIT ADR ASSIGNMENT RUN 
NINTL EQU 3 HIGHEST INT LEVEL ON SYSTEN 
MDIRT ati 4s MDI IMMEDIATE RETURN IN CNTL BLK 
OPWRD EQU 14 DISP TO PGM OPTION WORD 
EOT EQU X"'OD* END OF MESSAGE CHAR (RETURN) 
TIBEL EQU X'qtt ATTEN CHAR (X-ON) 

DLETE EQU X'7F? DELETE CHAR (RUBOUT) 
PLUS EQU Cr+ PLUS CHAR 

MINUS EQU Ct=% MINUS CHAR 

EBBK  EQU ee BLANK CHAR 

NEGZR EQU X' 1800! NEGATIVE AND ZERO INDICATORS 
STPCD set X'64t STOP CODE FOR MEMORY 
SMBIT EQU X*0010° SUMMARY MASK BIT 

ZERO EQU 0 VALUE OF 0 

ONE EQU 1 1 

TWO EQU 2 2 

THREE EQU 3 3 

FOUR EQU 4 u 

FIVE EQU 5 5 

SIX EQU 6 6 

SEVEN EQU 7 7 
ne 

TEN EQU 10 10 

ELEVN OU 11 11 

TWELV EQU 12 12 

THRIN EQU 13 13 

FORTN EQU 14 14 

FIVTIN EQU 15 15 

STXTN FOU 16 16 

SEVIN EQU 17 17 

TWNTY EOU 20 20 

TWEN1 EQU 21 21 

TWEN3 EQU 23 23 

TWENS EQU 25 25 

TWEN6 EQU 26 26 

TWENS EQU 28 28 

THRTY EQU 30 30 

FIFT7 EQU 57 57 

SIXTY EQU 60 60 

SIXT4 EQU 64 64 

SIXT6 EQU 66 66 

sits Heo [8 B, 

TWOO8 EQU 208 X'*DO',INPROC,SUP_ST,SM MSK 
TWO56 EQU 256 256 


U38F0O - CONFIGURATION UTILITY PROGRAM P/N=1635015 EC=755551 PAGE 02 U38FO -— CONFIGURATION UTILITY PROGRAM P/N=1635015 EC=755551 PAGE O2A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000160 239 THR52 EOQU 352 352 000006 358 CUDD4 EQU 6 DEVICE DEPENDENT DATA -- 4 
001000 240 FOURK EQUO 4096 4096 000007 359 CUDDS EOU T DEVICE DEPENDENT DATA -- 5 
000030 241 HTHTY EQU X*30! HEX 30 000008 360 CUDD6 EQU 8 DEVICE DEPENDENT DATA -- 6 
OO3FFE 242 H3F EQU X'*3FFE!? HEX 3FFE 000009 361 CUDD7 EQU 9 DEVICE DEPENDENT DATA -- 7 
FFFFFF 24u M1 EQU -1 -1 OOOOOA 362 CUDDS8 EQU 10 DEVICE DEPENDENT DATA -- 8 
FFFFFE 245 M2 EQU -? -2 O00000B 363 CUDDIS EOQU 11 DEVICE DEPENDENT DATA -- 9 
FFFFFD 246 M3 EQU -3 -3 00000C 364 CUDDA EQOU 12 DEVICE DEPENDENT DATA -- 10 
FFFFFO 24u7 M16 EOU -16 -16 00000D 365 CUDDB EQU 13 DEVICE DEPENDENT DATA -- 11 
FFFFEY 2u8 M28 EQU -28 -28 OOO000E 366 CUDRI EQU 14 DEVICE RFAD ID DATA RETURNED 
FFFFE2 249 M30 U -30 -30 368 3 RII OKI IORI IO ROR GIO kok loki iki lak ok iaioiokk taka ie ak 
00D4C3 251 MCKLB EOU C'Mc! 369 * * 
00D7C3 252 PKLAB EOU c'pct 370 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE * 
QU OR I RIO IK OR I RO RO ROI I IR ROK Ie aki cake ak take ok otek ack ak 3k aa . START OF A QUE BLOCK OF THE VARIOUS INFORMATION. * 
* * * 
222 * EQUATES FOR DISK Ke 373 RRR KOR IOI III ih OR io tok ok ii ok dak kkk kote kok ak 
257 * x 000000 374 QIAR EQU- O TARB OF CALLING PROGRAM 
258 FRO IIR I IO IO II III FIR OR OIC 000002 375 QAKR EQU 2 KEY REG 
000006 259 BOE EQU 6 DISP TO BOE FROM START OF 000004 376 QLSR EQU 4 LSR OF CALLING PROGRAM 
260 * ENTRY IN VTOC 000006 377 QRO EOg 6 XRO OF CALLING PROGRAM 
000008 261 EOE EQU 8 DISP TO FOE FROM START OF 000008 378 QR1 EQU 8 XR1 OF CALLING PROGRAM 
262 * ENTRY IN VToc OOOOOA 379 QR2 EQU 10 XR2 OF CALLING PROGRAM 
00000C 263 DSTYP EQU 12 DISP TO TYPE OF DATA SET IN 00000C 380 QR3 EQU 12 XR3 OF CALLING PROGRAM 
264 ENTRY OF VTOC OOQOOE 381 QR4Y EQU 14 XR4 OF CALLING PROGRAM 
OOO000F 265 SPTE EQU 15 NUMBER SECTORS/TRACK 000010 382 QR? Ee 16 XR5 OF CALLING PROGRAM 
OOO000F 266 DIP2A EQu 15 ADDR T DIPL2 T 000012 383 QOR6 EQU 18 XR6 OF CALLING PROGRAM 
000015 267 EDIP2 EOU 30 ADDR LAST DIPL2 SECTOR+1 000014 384 QR7 EQU 20 X¥R7 OF CALLING PROGRAM 
000078 268 PRC1A EQU 120 ADDR 1ST PROC1 SECTO 0000 16 385 QSVC EO 22 SVC NUMBER OF CALLING PROGRAM 
0000B4 269 EPRC1 EQU 180 ADDR LAST PROC1 SECTOR+1 000017 386 QRAL EQU 23 RETURN CODE AND LEVEL ENTERED 
OOO0OBY4 270 PRC2A EQU 180 ADDR 1ST PROC2 SECTOR 387 INTO SVC ON 
0O000FO 271 EPRC2 EQU 240 ADDR LAST PROC2 SECTOR+1 000018 388 QAV1 EQU 24 AVAILABLE WORD 1 
0000 FO 272 PRC3A EQU 240 ADDR 1ST PROC3 SECTOR OOOOTA 389 QAV2 EQU 26 AVAILABLE WORD 2 
00012c 5973 EPRC3 FOU 300 ADDR LAST PROC3 SECTOR+1 391 RRR I ORR RIK ROOK RR RO ROI IO IOI III I i RGR RIK tok ak ak ake ake fe ake ak 
OOO14A 274 VTOCA EOU 330 ADDR 1ST VTOC SECTOR 392 * * 
000168 275 EVTOC EQU 360 ADDR LAST VTOC SECTOR+1 393 * THE FOLLOWING pooner se ARE THE DISPLACEMENTS FROM THE START * 
OOO8AB 276 LDSST EQU 2219 ADDR LAST SECTOR ON DISK 394 * OF EACH SLOT IN THE DEVICE TABLE TO THE VARIOUS * 
000168 277 FDSST EQU 360 ADDR 1ST DATA SECTOR 395 * INFORMATION IN EACH SLOT * 
OOOOOA 278 DCPCY EQU 10 CYLINDER DCP ON 396 * * 
000020 279 LVTE EQU 32 LENGTH IN BYTES OF A VTOC ENTRY 397 OO ORR IIR IO iI doko ok rm I iki IOI I ak igi kotok koko kak af at 
000008 280 NDFPS EOU 8 NUMBER ENTRIES/SECTOR IN VTOC 000002 398 OAG EQU 2 RETURN ADDRESS IF COND CODE OF 
000004 281 CHDLG EQU 4 DISP TO DATA IN MULT SECTIS 399 * INTERUPT MATCHES THE COND 
OOOOOA 282 VHDLG zou 10 NUMBER BYTES OF HEADER INFORMATION 4Q0 * CODE AT OCC 
OO000E 283 IHDLP EOU 14 NUM BYTES PAST ALL HEADER INFO 000004 401 OAB EQU 4 RETURN ADDRESS IF CONDITION 
OOO01E 284 VHDLP EQU 30 4QO2 * CODE OF INTERUPT DOES NOT 
285 * ON 1ST SECTOR OF EACH PROGRAM DATA 4Q3 * MATCH CONDITION CODE AT OCC 
286 * 000007 404 OCC EQU 7 CONDITION CODE EXPECTED 
288 OO OIG CII RR dO IO II I i a ak ak ak GOS a tr a dR a a a I IO IORI I II ROR BOI RI OK 
289 * * U0 7 ORO ORCI RO IGRI BOR I IROI i kik lok tok lok tetcgce gies ac ak 
290 * EQUATES FOR CODED STOPS USED BY DCP * 408 * DATA FOR CCONFIG 
291 * (NORMAL AND ERROR) re L090 ok RO i ORIG OOK GOI IO i ik iokkoikotokiiegedic ie tok ak 
292 * * 000100 410 CTNAD EQU 256 # DEVICE ADDRESSES 
293 FO ROOK I II III IK IOI i lok RIO iI tr I kk OK iat i ak ak 2g kok fai oc U1 ee a RR I RIOR ii tok 20k 20k ik i kok 
003800 294 RECD1 EQ X'3800! DCP WAIT 00183Cc 0000 412 CMADE DC X*0000! CHANGES MADE FLAG 
003801 295 ACNG EQU x'3801' ALTERNATE CONSOLE ERROR 00183E 00 413 CTCOO DC X'00! CONSTANT 
003802 296 PCKCD EQU X*38028 PROGRAM CHECK ERROR 00183F 01 414 CTCO1 DC X*O18 CONSTANT 
003803 297 MCKCD Eu X*'3803' MACHINE CHECK ERROR 001840 05 415 CTCO5 DC X'Q5! NSTANT 
003804 298 PTWMG EOU x*'3804' POWER THERMAL ERROR 001841 OD 416 CTCOD DC X'OD* CONSTANT 
003805 299 PSTER EQU X¥'3805' PROGRAM TERM 417 ALIGN WORD 
003806 300 INVCD EQU X*3806 INVALID COMMAND ERROR 001842 0000 418 CTWOO DC X'00008 CONSTANT DECIMAL 00 1 WORD 
003807 301 ALTCN EOU X'38078 ALT IN/OUT UNDER TEST 001844 0234 419 CIMMT DC X'02348 ADDRESS IN DCP FOR MANUAL MODE TEST 
003808 302 RES EOU X'3808! ALT IN/OUT ON LINE 001846 00 420 CTSEF DC x*oo?* ENTRY FOUND NUMBER 
003809 303 UXP EOU X' 38098 UNEXPECTED I/O INTERRUPT 001847 00 421 CTSEE DC Xx'oo' ENTRY FOUND NUMBER - BYTE 2 
00380A 304 BPCD5 EQU X*380A? PROGRAM STARTED 001848 00 422 CTAD1 DC x*OO! ADDRESS BYTE 1 
00380B 305 LPcD4 Eu X'*380Bt DISK ERROR 001849 00 423 CTADD DC X'OO0? ADDRESS BYTE 2 
00380C 306 LPCDS EOU xX*'380Cc! PROGRAM NOT FOUND 00184A 0000 424 CINCF DC X*O0000!8 FLAG IN INITIAL CONFIGURATING MODE 
00380D 307 LPCD6 EQU X¥'380D" PROGRAM LOADED 00184C 00 425 CEDN1 DC X'00° COUNTER TO ENTER DEVICE TYPE 
00380E 308 HLTCD EQU X*380E!? HALT SVC 00184D 00 426 CEDN2 DC X*oOOo!t COUNTER 
003810 309 RPCD2 EQU X'*38108 PROGRAM NOT EXPECTING REPLY QO184E 00 427 CHACT DC X'QO! COUNTER FOR DEVICE ADDRESS 
003812 310 RPCD5 EOU X'3812! PROGRAM EXPECTING HEX DATA QO184F 00 428 CHAC2 DC X*008 COUNTER 2ND BYTE 
003813 311 ERR1 EQU X'3813' TOO MANY CHARACTERS ENTERED 001850 00 429 CTMC1 DC X'OO! PRINT COUNTER BYTE 1 
003814 312 ENTCD EOU X'38148 ASK FOR DATA ENTRY 001851 00 430 CTMC2 DC X'0OO! PRINT COUNTER BYTE 2 
003815 313 SVCOD EOU X'38158 TOO MANY SVC CALLS 001852 0000 431 MENUP DC x'00008 MENU NO PRINT SWITCH 
315 kk OI ZO IGOR HORI ROI RR RR ito ii ok dak ia ik fo tot tok ok a 00171854 432 OLADD Qu % 
316 * * 001854 1CA0 433 OLAD1 D X"'1CA0' START ADDRESS OF OVERLAYS 
317 * THE FOLLOWING EQUATES ARE THE DISPLACEMENT FROM THE * 001856 434 OLAD3 EQU * 
318 * START OF A PROGRAM HEADER OF THE VARIOUS INFORMATION IN * 001856 1CA8 435 OLADR D X'1CA8! 2ND INSTRUCTION OVERLAYS 
319 * EACH PROGRAM HEADER * 436 ALIGN WORD 
320 * x (ewer eter LTrCerr©errre +r Leer TLL e tr errr rT ereLCt+te terre + ee to 
321 re eg ee ere eee eine tren sere ease Te 438 * CONTROL WORDS FOR OVERLAYS 
000000 322 HID EQu re) PROG I. 001858 00 439 DC X'O0O!? KEEP READI STORAGE ADDRESS ON WD.BD. 
000000 323 DVADR EOU 0 DEVICE ees IN DEVICE TABLE 001859 E4F3 440 CTRL1 DC C'u38sFi? CONFIGURATION TABLE NAME 
000001 324 DVTYP EOU 1 DEVICE ADR IN DEVICE TABLE 00185E 0000 Qu DC X'0000* STORAGE ADDRESS FOR CTRL1 
000003 325 HDDP1 EOU 3 DEVICE DEPENDENT DATA 001860 00 442 DC xX*oo*?t KEEP READI STORAGE ADDRESS ON WD.BD. 
000004 326 HDDP2 EOU u DEVICE DEPENDENT DATA 001861 =D6F3 443 CTRL2 DC C'o38F2! CONFIGURATION INITIAL CONFIG OVERLAY 
000004 327 CPUMD EOU u CPU MODEL DISPLACEMENT 001866 0000 Way DC X*O0008 STORAGE ADDRESS FOR CTRL2 
000006 328 LSADR EOU 6 LAST ADR DISPLACEMENT 001868 00 4s DC X*'O0O? KEEP READI STORAGE ADDRESS ON WD.BD. 
000006 329 HPK EQU 6 PROTECT KEY 001869 D6F3 446 CTRL3 DC C'O38F4! CONFIGURATION TABLE CK OVERLAY 
000007 330 HPK1 EQU 7 PROTECT KEY PLUS ONE 00186E 0000 Wy7 DC X'0000! STORAGE ADDRESS FOR CTRL3 
000006 331 HPSA EOU 6 DIAG PROG START ADR 001870 00 44g DC X*'0O08 KEEP READI STORAGE ADDRESS ON WD.BD. 
000006 332 INTAR EOU 6 DEVICE INTERRUPT ADR 001871 D6F3F8C6F5 44U9 CTRLY DC Ct'o3sF5t CONFIGURATION FUNCTIONS OVERLAY 
000008 333 HDVTB EOU 08 DIAG DEV TABLE POINTER 001876 0000 450 DC X'00008 STORAGE ADDRESS FOR CTRLY& 
000011 334 EXPNT EOU 17 001878 187E 451 CTRLS DC A (CTRL6) ADDRESS OF CONFIG TABLE NAME 
000012 335 TBEND EOU 18 END OF TABLE IND 00187A 3000 452 DC X¥*3000* WRITI - ADDRESS OF CONFIGURATION TAB 
000013 336 SCEND EOU 19 END OF SECTOR IND 00187C 0800 453 DC X*O08008 WRITI - # WORDS TO WRITE = 2048 
000014 337 CICBT EOU 20 C IC B INDICATOR OO187E F3F8C6FT1 454 CTRL6 DC C'38F1* CONFIG TABLE NAME 
000008 338 CFEXT EOU 08 001882 00 455 DC Xx'00! KEEP READI STORAGE ADDRESS ON WD.BD. 
000012 339 HTUID EOU 18 MDI MAP I.D DISPLACEMENT 001883 D6F3F8C6F6 456 CLIRL7 DC Cto3sF6é* PRINT OVERLAY 
000010 340 UDTAS Eou 16 UNIT ASSIGNED BIT 001888 0000 457 DC X*00008 STORAGE ADDRESS FOR CTRL& 
000020 341 PDTAS EOU 32 00188A 00 458 DC x'oo? KEEP READI STORAGE ADDRESS ON WD.BD. 
000000 342 UNCRT EOU 0 UNCONDITIONAL RETURN BIT 00188B D6F3F8C6F3 459 CTRL8B DC Cto38F3! 2ND INITIAL CONFIG OVERLAY 
000001 343 CKDAD EOQU 1 CHECK REQUESTED DEV 001890 0000 460 DC x*o0008 STORAGE ADDRESS FOR CTRLY 
00000B 344 IOCHK EOU 11 I/O CHK IN PSW 001892 00 461 DC x'o0ot KEEP READI STORAGE ADDRESS ON WD.BD. 
OOOO0O0F 345 NEWAR EOU 15 001893 D6F3F8C6F7 462 CTRLIY DC C'O38FT7* ACCA OVERLAY 
306 kok OR IOI III RIO IR IO FO IIR III IOR IO ROR I IORI RIOR RI HC OK ak 001898 0000 463 DC X'00008 STORAGE ADDRESS FOR CTRL9 
347 * * 00189A 00 464 DC X*O00! KEEP READI STORAGE ADDRESS OW WD.BD. 
348 * THE FOLLOWING EQUATES ARE THE OFFSETS INTO EACH ENTRY * 00189B D6F3F8C5SFO 465 CTRLB DC C'O38E0'* BSCA OVERLAY 
349 * FOR THE DATA SPECIFIED. (16 BYTES / ENTRY) * 0018A0 0000 466 DC X'0000! STORAGE ADDRESS FOR CTRL9 
350 * *x 0018A2 00 467 DC X' OO? KEEP READI STORAGE ADDRESS ON WD.BD. 
35.1 eRe io RI III IOI III III IOR I TOR IO OR IO IKK 0018A3 D6F3F8C5F1 468 CTRLA DC C'O38E1* SDLC OVERLAY 
000000 352 CUDA EOU 0 DEVICE ADDRESS 0018A8 0000 469 DC X*00008 STORAGE ADDRESS FOR CTRLA 
000001 353 CUDT EO6U 1 DEVICE TYPE OO18AA 00 470 DC x*'oot KEEP READI STORAGE ADDRESS ON WD.BD. 
000002 354 CUDF EOU 2 CONTROL FLAGS OO18AB D6F3F8C5F2 471 CTRLC DC C'O38E2! MERGE OVERLAY 
ntttetid 322 Gupps Bou DEVICE DEPENDENT DATA -- 3 OO1BBS OO. 493 DE OXtOON REED READE STORAGE. ADDE GS 
acta RESS ON WD.RBD. 
000005 357 CUDD3 EOU 5 DEVICE DEPENDENT DATA -- 3 0018B3 D6F3F8C5F3 474 CTRLD DC C'oO38E3' COMM SYS OVERLAY 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0018B8 0000 WTS DC X*0000'* STORAGE ADDRESS FOR CTRLD 589 * INPOT 
OO18BA 00 476 DC x*oo! KEEP READI STORAGE ADDRESS ON WD.BD. 0019B2 00 590 CTMW3 DC Xx'0O0O8 INPUT 
0018BB D6F3F8C5F4 477 CTRLE DC C'o38sE4? CYCLE STEAL OVERLAY 0019B3 00 591 DC xX'0O0O!? 
0018CO 0000 478 DC X*0000!8 STORAGE ADDRESS FOR CTRLE 592 * 
0018C2 00 4u7g pc x'oor KEEP READI STORAGE ADDRESS ON WD.BD. GQ RA eo a He he he he a he fe Re oe ke 2h ah 2h ae ae 2 2c ake ae i ae ake ae ake ae akc ah 2 fe af ae ake a a ae fe fe ate afc fe oe ae ake oe fe ak ae ade ae 2h ae 2c 
0018C3 D6F3F8C5F5 480 CTRLF DC C'oO38E5! TCS OVERLAY 594 * END OF CDATA 
0018C8 0000 481 C X'Q000' STORAGE ADDRESS FOR CTRLF 595 eo OG ao Oa IO I GR OR RO I Hf CR 
082 2 ROR RR RRO IO IG CR RR AOR RRO Ok RR Ra OK Fe ak a aK feo a ok ak aie ak 596 ALIGN WORD 
483 * CONFIGURATION TABLE 1120 BYTES 598 oO sito ok OR OI iI a a Ri RRR Ra i a ai ake ake afer af age 
fee . eT any ae a aeeiCE aaa 2a PE re RE AOL Pe Neen rer en Aan x 
pes = SOR ROR a oe ito 
486 *TLEL DC X¥'0010! TABLE ENTRY LENGTH = 16 BYTES 601 OOK I io ei io iam tO a kt kot ak kak ak eae ia 
487 *TLNG DC F'4gg96? CONFIGURATION TABLE LENGTH 602 * READ CONFIGURATION TABLE FROM DISKETTE 
488 *TABA DC x¥*'3000! ADDRESS OF CONFIGURATION TABLE 603 RR OIG III RI IC IK RR I ai ig tek keke alate iki 
489 *TABU DC X'*3002* ADDRESS NUMBER OF ENTRIES USED 0019B4 604 CYROO EQU a 
0018CA 3003 490 CTABC DC X*3003°8 ADDRESS OF CONFIGURED FLAG 605 #RRREKKEKXX TEST LOAD AT IPL TIME BIT 
491 *TABP DC x'*3005° ADDRESS OF SYSTEM TYPE 606 * LOCATION 0234,BIT 5 1 = ENTERED AT IPL 
492 *TABS DC xX*3006! ADDRESS LAST USABLE STORAGE 0019B4 CF25 1830 607 MVWZ IPLPS,R7 INITIALIZE IPL PASS SWITCH! 
0018CC 3008 493 CTABN DC X*30088 ADDRESS ALT CONSOLE ADD-TYPE 0019B8 6908 1844 608 MVW CTMMT,R1 ADDRESS x*Q234!8 
494 *TABF DC X*3FFO* ADDRESS LAST ENTRY O019BC 4985 609 TBTR ue 5) TEST AND RESET IPL LOAD BIT 
495 *TMNE DC x'o0o!? 255 = MAX # ENTRIES IN CONFIG TABLE OO19BE 1003 610 JOFF YR62 NOT LOADED AT IPL 
496 *TMNF DC X'FF? 255 BYTE 2 0019CO0 4020 1830 0001 611 VW ONE, IPLPS SET IPL PASS SWITCH 
WME T EP SCOSCTCCSSC CSCS COOLS SE LTS TT STC LLC TSS OSCS SLOSS SL. SS tf 612 2A GOR IG I ian I I ia aia to oiotak 
ioe # SON a, ere On enon Oli SRMRSRC RESET GH OL ED eee Tee el ceee here ete eec eae 
FORO IOR OR ROR I ge kat 
500 * ALIGN WORD 0019C6 4724 1859 615 CYRO2 MVA CTRL1,R7 
501 *TDA DC x'oo!? DEVICE ADDRESS O019CA 601F 616 VC READI 
502 *TDT Dc x'oot DEVICE TYPE 617 OK I BO OR ORIG I OR I IK ak ak koi kik ie ak ate ofa 
sie Ue) Saravpouane: OTE E8SEo oy pcp 934355 $833 1982 is SE SEHga.S 
- CONFIG TABLE READ OK 
505 * 1 - CHAIN ENTRIES 620 * CONFIG TABLE NOT FOUND ON DISKETTE 
209 * $I EAST ENTRY UN EACH SECTOR §o19p8 €000 252 ave OOur CONFIG TABLE. 
- ONFIG BL NO 
508 * 4 —- RESERVED 0019DA 6802 1B78 623 B aad a ee coe ae 
509 * 5 - RESERVED 625 oO OR oi a aiiioigi kolo lok icioigok doi kokuk gok iio doio kak teak i ic ak ite ke a ak ake ae 
219 go BESTE TED our SL POO LUMC SRL Ura MTEL eet EES aee tee Lert Te eee 
pa He tek ake 
512 *TDD1 DC B*'* 000000008 DEVICE DEPENDENT 0019DE 6908 18CA 628 CIAO2 MVW CTABC,R1 CONFIGURED FLAG ADDRESS 
513 *TDD2 DC B*'00000000! DEVICE DEPENDENT 0019E2 8063 183E 629 CB CTCOO, (R1) 
514 *fTDD3 DC B*'00000000'! DEVICE DEPENDENT 0019E6 6801 1AT7E 630 BNE J IF ALREADY CONFIGURED 
515 *TDD4 DC B'*Q000000008 DEVICE DEPENDENT 6317 FO TO IG ROR IOC RO I IG I RIOR GR ICR ORCI IC oR afc ae afc aie ate 
516 *TDD5 DC B*'00000000! DEVICE DEPENDENT 632 * INITIAL SYSTEM CONFIGURATION 
517 *TDD6 DC B'000000008 DEVICE DEPENDENT 633 =O ok uo ao kK i gk mk tak icdote ak dei 
318 ftBpg be 81998800055 BEVECE BEPENDENE e38 HT DOO AEE GbuSOLE ae" ceN 
ADD OLE TO CONFIG TABLE 
520 *TDDI DC B*00000000! DEVICE DEPENDENT 636 * SORT ee 
521 *fTDDA DC B'*000000008 DEVICE DEPENDENT 637 * WRITE TO DISKETTE 
255 STDID De|ORNODN DEVICE READ TD RESULTS 0019EA 4020 184A 0001 239 CLAO3 HVWI xX"O001 CINCH. 
| NCF SET INITIAL CONFIGURATING FLAG 
23¢ *TDI2 rere Eon. DEVICE READ ID RESULTS - BYTE 2 eae Bae 1861 ale ee eORL 2 2,R7 LOAD THE . 38F2 
526 OR Ro a io doo OR ik koko dok ied ak ak koi ake ai ak ake ak 00719F6 6F13 1854 642 SHS ee peta h le CONTI CURAT IGN venus 
527 * CONFIG TABLE MESSAGES = 3820 -384F 643 Pee ey i Le Pee eI ee ene ene rm ne ee ee rena 
236 * CONTROL BLOCK OUTPUT aie * SORT AND WHITE GO Disko 
530 ALIGN WORD 646 * DO 2ND AUTO CONFIGURATION TO GET DEVICE INFIRMATION. 
0018CE 99C0 231 apuga DC we 647 OTA RETR? CREO RAP ER SS Sa EET POA SAU ESE SSAA ALE LES SESE SSeS ete 
0018D2 FFFF 533 DC - QO19FA 649 CIAOS EQU * 
534 * OUT QO0O19FA C720 1832 650 TB TCSFL,R7 CK FOR A TCS 
0018D4 384D 535 DC t OO19FE 1005 651 JZ CIAOY J NO TCS 
0018D6 C3D6D5C6C9OCTEXDIC 536 CAAO2 DC C*'*CONFIGURATION TABLE NOT ON DISKETTE® 001A00 4724 18C3 652 MVA CTRLF,R7 LOAD THE 3 B8E5 
0018F9 00 537 DC 001A04 601F 653 SVC READI TCS OVERLAY 
538 * 001A06 6F13 1854 654 BAL OLAD1*,R7 GO DO TCS 
539 * 655 * SORT TABLE 
540 * CONTROL BLOCK OUTIN OO1AO0A 656 CIAO4Y EOU 
541 ALIGN WORD OO1TAOA 4724 1871 657 MVA CTRL4, R7 LOAD THE 38F5 
g3ige8 9880 B43 conv Bo hyesats S31895 $338 oop0 essay Ey SoHE SURAT EGR TOBSTONS STEEEM 
O CALL SORT CONFIGUR 
O18FE 1338 pus BERGA OO1A14 6F13 1854 g60 BAL. eee se oe 
TED C IGURATION TABLE TO DISKETTE 
a a SSR1e 2935 127° ee are See 
i WRITE DISK 
001904 3826 548 Cc X'*38268 664 *e RK * 5 
001906 C3C8C1ID5C7C5E240D 549 CTMV4 Dc C'CHANGES NOT SAVED. OD=WRITE DISKETTE, O5=TERMINATE® OO1TA1E 4724 188B 665 CIAO6 MVA CTRL8,R7 LOAD THE 38F3 
001938 00 550 DC x*oo!? 001A22 601F 666 SVC READI 2ND INITIAL CONFIG OVERLAY 
001939 00 22) acon WORD 001A24 6F13 1854 een tecee BAL OLAD1*,R7 GO DO 2ND AUTO CONFIG 
00193A 00 553 CTMV5 DC x'oo? INPUT 001A28 4724 18BB 669 MVA CTRLE,R7 LOAD THE 38E4 
00193B 00 22¢ “ DC x*'oo? Ba iaee oot 1854 ee aS eee 7 CYCLE STEAL CONFIG OVERLAY 
229 : RL LGH ¥O au ater 001A32 4724 1893 e322 aiid i 7 a ‘s Peete re manne 
CTRL R LOAD TH 
agngae 99c0 B38 cove BE Pte O31838 8915 osu 7 a ae ow se eget ee 
Cee eee 209 * OF TPUT ee. Q001A3C 4724 189B e78 ee MVA crn, . a. 
R LOAD TH 
001942 3823 562 DC X'*3823°8 OO1A4Q0 601F 678 SVC READI BSCA INTIAL CONFIG OVERLAY ad 
Oo leed fore ees een CTMV7 oe Oo et ENTRY' 001A42 6F13 1854 ae Peres BAL OLAD1*,R7 GO DO ACCA AUTO CONFIG 
565 * OO1TA46 4724 18A3 681 MVA CTRLA,R7 LOAD TH 
Beg * Con TRO uenoce OUTPUT apande as saci ae 49 READI | SDLC INETIAL CONFIG OVERLAY ace 
991352 9980 388 conve BS isi fie a Ss. ene cee 
HVA CTRLD,R7 
001956 FFFF 249 ‘ ne af - BOA EeE oes 1854 e86 aS READ 7 x ORM aye CONFIG OVERLAY enn 
T VWZ DATAB,R ZERO BEFORE TERMI 
001985 00 574 DC X'00* OO1TASE D725 1814 690 MVDZ DEVAD,R7 ZERO BEFORE TERMINATE 
575 * OO1A62 4724 1871 691 MVA CTRL4Y,R7 LOAD THE 
576 * 001A66 601F 692 SVC READI CONFIGURATION pro ores OVERLAY 
577 * CONTROL BLOCK OUTIN 693 * GO SORT & WRITE FULLY AUTO CONFIGURED TABLE TO 
578 ALIGN WORD 001A68 6802 1B44 694 B CSORT TERMINATE 
001986 0080 579 DC x'0080' 695 oko koko kok ok lok togakgaigtokaiok iotok dokkok tok Si iO dO aOR RR IORI gtk dogg doa do tok 
001988 1992 580 CIMW1 DC A TMH) 696 **kKRHEEESK END OF INITIALIZATION PASS ®##eREEKER EEE EES KEKE KEKE 
00198A 1982 584 Dc AICTMW3 697 ek OR Rok edi dak ig tO ROR RRR RIOR RRR HO ROIROROIORORO ROR ROR ORR ROR RRR ROR i eae fe age ate a ea a ae ae 
00198C 0001 582 DC A i} 699 soko oR kk ok oR R RK i OR ROR ROROR RR IORIOI RIOR ROR ROR IRR RR RRR gag gaz kota ik eak tage 
gOd> ees 0208 282 paoue TO 1 SURERME PETES EEO E RD SUES ONES E EEL ee eee ee be Senet eee ease ee ol 
001990 382C 85 Cc X'382C! 702 * WILL DO INITI 
eoioat as a 388 CTMW2 We Ciogi DISKETTE, O5=TERMINATE!® aoa : Q ADD ALT eoNSoLE GO CONE TG TABLE 
588 ALIGN WORD 705 * WRITE TO DISKETTE 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
106 * ERMINATE OO1BEO 6802 1288 om B OKTNE REQUEST NET FUNCTION. Nv *Y 
q = 
Eee 4930 Lee 0001 408 CIA yee £10001 ¥ 46 INCF Poa nee CONFIGURATING FLAG 825 RUCK CER AKAG bs x44 WERE AR ROO CEREENS EC kes tk ea ee eee 
901476 SO1F nee 409 SVC READI INITIAL CONFIGURATION OVERLAY 4 : 
iter SORE 449 ene Cee eR7 J DO 2ND AUTO CONFIG 828 3 I IOI IRI IIR IORI IOI OR IOIOIIOIGIOR IORI III RICCI IOI I i ak 

712 OR SRR ROR ROR III Rok ek ROR IR io kok kok kc tokio totok ie toto foie ak 829 * IF NO CHANGES DESIRED THEN SORT NEW CONFIGURATION TABLE. 

T14 eR doko tok ok ROR IRR RRR IRR RII RR RR II RRR RIOR Fak ik i ik ak kf ak 830 * FUNCTIONS OVERLAY WITH SORT SUBROUTINE IS ALREADY LOADED. 

715 * CHECK CURRENT CONFIGURATION TABLE CRM t eof SPS Seer ee rr CCS CSE SES SECS SS SCT CSS OSS CSCS CS eee Se ST ee eee Te ee eT 

T16 RR RRR IC HOO IIR IIR ROR OOR IO ROR RR RF RRR Rk 8k ak ak akc ofa ane pene 9000 a3 CSORT aes BE aa R2 CALL SORT CONFIGURATION TABLE (DO) 

x 
aaa 4724 1869 ae ed 4 HM CTRL3,R7 LOAD THE 834 RE SL ee ae bp PT POT TT OT ee TET ee on ren ne 
835 * WRITE NEW SORTED CONFIGURATIO B DISKE 
eer eo tE 1854 a6 Bae CrEpae R CONFIGURATION CHECK OVERLAY 836 PEREGUNEE SEEC 6 GE EEEEA SEES EEE EE EACH LOA eee Lk EO Ceere eeeeaees 

72.7 ea AG a GOI OO IGG IO OIG GOR EI IO IG IK A QOO1B4C 4724 1878 837 CYWOO MVA CTRL5S,R7 

722 ***keeeKRRK END OF CONFIGURATION CHECK %% 3 340k 3 GC tok tok kok 001B50 6020 838 SVC WRITI WRITE DISK 

T2323 RK OR ROR RRO IO ROR IR RR RRO ROR IR ROR Rak RR Raf ka ok ak ae ak ok ofc of fe oe 001B52 4724 1954 839 CYW10 MVA CTMV8,R7 

125 * SEO A OCG RII ROR IIR II I amok gk aca eee fen Vane ae AAS ee a PRINT "WRITE CONFIG ON OTHER DISKS! 

T E U 

438 SE ESE EEA EE EEE CGE ROE Eee Ro Ra CR kkk ka kk 001B5C 6001 842 SVC OUTIN’ PRINT *OD=WRITE DISKETTE, OS=TERMI NAT 
001A88 728 CXINF EQU Q0O01B5E 802B 1840 19B2 843 CB CTCO5,CTMW3 
O01A88 4724 1883 729 MVA CTRLT,R7 LOAD THE 3 8F6 001B64 1009 844 JE CTERM 
OO1A8C 601F 730 SVC READI PRINT OVERLAY 001B66 802B 1841 19B2 B45 CB CTCOD,CTMW3 

731 * 001B6C 10EF 846 JE CYwoOo LOOP TO WRITE CONFIG ON NEXT DISKETTE 
QOO1A8E 6A08 1852 732 CXIN4 MVW MENUP BYPASS TABLE FLAG FOR OVERLAY QO1B6E 4724 193E 847 MVA CTMV6,R7 
001A92 6F13 1856 433 2 BAL EARS a7 PRINT OPTIONS AND GET ENTRY ea eo oe eae ne OynAG TN ENTRY* 

735 * R2 = OPTION # RETURNED FROM OVERLAY 850 2 IO IGOR IIR IOI IIR JOR IOI III IO IK GIGI ak ke 
001A96 4724 1871 736 MVA CTRL4,R7 LOAD THE 38F5 ete sedan 852 Eee EGR ee enn eer ea COEUR Ne PESE SEL RTELERETES 
OO1A9A 601F 737 SV READI CONFIGURATION FUNCTIO VERL 

738 * © BELO ps0Ns:0 ay 854 * END WRITE NEW CONFIGURATION TABLE TO DISK 
OO1A9C 3241 739 SLL 8,R2 855 IORI RIO IO IO ROI III I III III IIR II III IK Rakai. aka 
OO1A9E 3242 740 SRL 8.R2 001B78 6007 856 CTERM SVC TERM TERMINATE PROGRAM 
OO1AAO F220 744 CBI x20", R2 89) So eget ce Geen Te ent rete tc eee neat Skee eee rus r eee PEGS 
OO1AA2 1802 742 JNE CXI02 

t t = 859 * END OF PROGRAM * 
Bo anee ocrr Ue ae re RO=FF FOR PRINT ANOTHER DISKETTE 860 27 RR FIO RIC II I IO GIO III IORI GI IGE ik ke ak 
OO1AA8 F201 7U5 CXI02 CBI X'01",R2 862 3 I OR OI OR IG IOI IO IC IORI IIR ORR ROR ICRC ak kak ae 
OOTAAA 1806 746 JNE CxIO4 863 * PROCEDURE BSAW 

7Wu7 * 01 = PRINT CONFIG TABLE - SORT FIRST 864 * SORT AND WRITE CONFIGURATION TABLE TO DISK 
OO1AAC 4224 OODO 748 MVWI TWOO8,R2 FUN (00D0 865 * RETURN TO 2ND AUTO CONFIG 
001AB0 6F13 1854 749 BAL OLADD*, R7 GO SORT TABLE 866 3 RRO IO III IOI IOIOI IO OI OR IO dia Gk ik iio 
OO1AB4 3282 750 CXI03 SRL 16,R2 R2 = 0 FOR PRINT CONFIG TABLE OO1B7A 4724 1871 867 BSAW1 MVA CTRL4,R7 LOAD THE 
OO1AB6 5036 751 J cypRet OO1B7E 601F 868 SVC READI CONFIGURATION FUNCTIONS OVERLAY 
OO01AB8 F20B 752 CXIO4 CBI X*OBt,R2 001B80 4224 Q0DO0 869 MVWI TWOO8 CALL SORT CONFIGURATION TABLE (DO) 
OO1ABA 180A 753 INE  CXIO7 001B84 6F13 1854 870 BAL OLADDE RI 

7154 * OB = BYPASS OPTION TABLE B71 RRR KK 
99 1ABC 6408 1852 72? MVW MENUP, R2 BLE Teena CRITE NEW SORTED CONFIGURATION TABLE TO DISKETTE 

AC JZ CxI 
00 1AC2 Ch25 1852 de) HVWZ HENUP ,R2 RESET MENU NO PRINT SWITCH 001888 4728 1878 pia Ne Seen eerie GoeE 
0OO1AC8 4020 1852 0001 759 CXI06 MVWI ONE, MENUP SET MENU NO PRINT SWITCH B76 RRR RK 
QOO1ACE 5028 760 ‘| CXIND OO1B8E 4724 188B 877 MVA CTRL8,R7 LOAD THE 
OO1AD0 F205 761 CXIO7 CBI X¥'05",R2 001B92 601F 878 SVC READI 2ND INITIAL CONFIG OVERLAY 
OO1AD2 1812 762 JNE CXI08 B79 eR KK 

7163 * 05 = TERMINATE 001B94 6812 182E 880 B RA* RETURN INTO 2ND AUTO CONFIG 
001AD4 6FO08 183C 764 MVW CMADE,R7 881 ek co IO I RIOR IO OI IOI IO IR II ROK OIC Ok ak kk kok 
001AD8 104F 765 JZ CTERM TERMINATE IF NO CHANGES WERE MADE BB3Z Hk He ee eR he he a he he 2 ke 2k 2 ke ok kk kk ok Rk ok keke kee a ke oekaki ke RC te ak te te ae ate aie ate a ate 8a akc aie ake af ake ate te 
OO1ADA 4724 18FC 766 MVA CTMV3,R7 884 * PROCEDURE CDCPT 
OO1ADE 6001 767 SVC OUTIN PRINT "CHANGES NOT SAVED OD=WRITEOS=T 885 * CHECK FOR DCP TERMINATE BIT ON - BIT 0 OPTION WORD 1 
001AEO 802B 1840 193A 168 CB CTCO5S,CTMVS 886 7 ICO CI IC RIO IORI GIORGIO I GIR RO IOI IRGC Roa ak ak ate ok 
QOO1TAE6 1048 769 JE CTERM 05 SO GO TERMINATE 001B98 0000 887 CDCPR DC X'0000' RETURN ADDRESS 
OO1AE8 802B 1841 193A 770 CB CTCOD, CTMVS 888 ee ge ae ce ee ee et eran te ee rete tee eee Tere eee ent 
OO1AEE 102A 771 JE CSORT OD SO GO WRITE TO DISKETTE 001B9A 6F0OD 1B98 889 CDCPT MVW eee SAVE RETURN ADDRESS 
eee cacao 1935 432 eye concen PRINT "INVALID ENTRY? DOleke Poo ae B34 AE AGE of BIT OQ = DCP TERMINATE PROGRAM 
QOIAFS | SORC 774 oe 2 CXIO7 OO1BA4 6801 1B78 892 BNZ TERM GO TERMINATE 

AF F CxI CBI x! ' Rk 
OO1AFA 1803 776 INE CXI10° 894 * 
OO1AFC 4224 0001 448 . MVWI ONE,R2 a R22 | FOR PRINT SYS EOULP OO1BA8 6812 1B98 B96 ° B CDCPR* RETURN 
001B00 5011 779 J CXPRT Q 837 eee eee ee eh ace etn eee REN et T PET ILOTeSLAE TS EERE TEES EE 

780 CXI10 U * END CHECK FOR DCP TERMINATE 
ee 4020 183cC 0001 781 I : WL 1,CMADE SET CHANGES MADE FLAG FOR 0C,105ALL F 899 7k 2K OR RO OR I IO ROI I OI go im i Ca tak ake ake akc afc ake 
001B08 F20C 782 CBI X'OCt,R2 0019B4 901 END Cc END OF PROGRAM 
OO1BOA 1802 783 INE CXI12 902 73 I RI IO IR II I kk a II III kok ok got gia ak gate ea 

784 * OC = INITIAL CONFIGUR SYSTEM 903 * END OF CONFIGURATION PROGRAM 
001B0C 6802 1A6C 785 B CIA11 904 3 I I ROI ok kote doiiot doko tok 
001B10 786 CXI12 EQU * 
001B10 F20D 787 CBI X'OD!,R2 
001B12 1801 788 JNE CxI13 
001B14 5017 433 * eons Caen DISK OD = SORT & WRITE DISK & TERMINATE 
001B16 791 CXI13 EQU * 
001B16 F210 792 CBI X*'10',R2 
001B18 1801 7193 JNE CxI14 
OO1B1A 500A 794 J MERGE 10 = MERGE CONFIGURATION TABLES 
001BIC 432 Ceti fou. OVERLAY TO LOOK FOR OTHER FUNCTIONS 
001B1C 6F13 1854 197 BAL OLADD™ gR7 B INTO FUNCTIONS OVERLAY 

re 738 Salk a Tre SESS CSL SSS SLOSS STS OSLO ST CCL CL SL SS Sete re Ss ee ee Se Te 
00 
001B20 6802 1A88 800 B CXINF REQUEST NEXT FUNCTION 

BO 1H RH a oR OR ROI IOI IOI IO FR RR ROR RII ROR ICR RR RR Rok RC ak aR Ca ake ok 

B03 7 RIO ROI II II IIR IOI I aC IR ROR a ak ak 
001B24 804 CXPRT EQU * ronan CONFIG & EQUIPMENT 
001B24 4724 1883 805 MVA CTRL7T,R7 LOAD THE 
001B28 601F 806 SVC READI CONFIGURATION PRINT OVERLAY 
OO1B2A 6F13 1854 807 BAL OLADD*,R7 
001B2E 5005 808 RNF 

809 3 OR IOI IO OI ROR ROI III I dO m Ii ak kak ak lak ac 

810 * 

* 

at BOR IGOR IG IR ROR RIC OI IO I IOI IOI II I IO i gk ak ak tk kite ak ake ake akc ak 
981833 700 teas gig SPREE Seance i ant alc 
OO1B34 601F 815 svc READI- MERGE TABLES OVERLAY 
001B36 6F13 1854 816 BAL OLADD*,R7 

817 ORR GR OIG IIIS IGIOR IORI GIIO III ak ak ak a 

818 * 

819 * 

B20 76 RI ROR IO IO ROR OR OI IG FOR I I IOI RII aOR I ICR IC a a ae ak ake akc ake oe 
OO1B3A 821 RNF EQU * REQUEST NEXT FUNCTION 
OO1B3A 4724 1871 822 MVA CTRL4Y,R7 LOAD THE 
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DECLARED NAME ATTRIBUTES AND REFERENCES 786 CX1I12 ADDRESS. HEX LOCATION (00001B10) IN CSECT (U38FO ) LENGTH (1) 
98 BEGIN ADDRESS. HEX LOCATION (0000181E) IN CSECT(U38FO ) LENGTH (1) 791 Cx113 BURRESS: HEX LOCATION (00001B16) IN CSECT(U38F0 ) LENGTH (1) 
102 BEGIQ Eger HEX LOCATION (00001826) IN CSECT (U38FO ) LENGTH (4) 796 CX1I14 ST ea HEX LOCATION (00001B1C) IN CSECT (U38FO ) LENGTH (1) 
107 BSARA OE seca HEX LOCATION(0000182E) IN CSECT(U38FO ) LENGTH (2) 804 CXPRT ARORESS + HEX LOCATION (00001B24) IN CSECT(U38F0 ) LENGTH (1) 
867 BSAW1 anon HEX LOCATION (O00001B7A) IN CSECT (U38FO ) LENGTH(4) 604 CYROO ape er HEX LOCATION (000019B4) IN CSECT (U38F0O ) LENGTH (1) 
532 CAAOQ1 a aaa HEX LOCATION (000018D0) IN CSECT (U38F0 ) LENGTH (2) 615 CYRO2 po HEX LOCATION (000019C6) IN CSECT(U38F0 ) LENGTH (4) 
536 CAAO2 oe HEX LOCATION(000018D6) IN CSECT (U38FO ) LENGTH (35) 837 CYwood Sy ea HEX LOCATION(O00001B4C) IN CSECT(U38F0 ) LENGTH(4) 
887 CDCPR poet Bee LOCATION (00001B98) IN CSECT (U38FO ) LENGTH (2) 839 CYW10 pio HEX LOCATION (00001B52) IN CSECT(U38FO ) LENGTH (4) 
628 CIAO2 rac la HEX LOCATION (OOO0O19DE) IN CSECT(U38F0 ) LENGTH (4) 90 DATAB Sone ene LOCATION (00001812) IN CSECT (U38F0 ) LENGTH (2) 
656 CIAO4 ak aaa HEX LOCATION (OOOOTAOA) IN CSECT (U38FO ) LENGTH (1) 91 DEVAD Ponte HEX LOCATION(00001814) IN CSECT(U38FO ) LENGTH (1) 
649 CIA0O5 ae HEX LOCATION(OQOOO19FA) IN CSECT (U38FO ) LENGTH (1) 109 IPLPS poy eve LOCATION (00001830) IN CSECT(U38FO ) LENGTH (2) 
707 CIA11 poe HEX LOCATION (00001A6C) IN CSECT(U38FO ) LENGTH (6) 431 MENUP pee Tato seg ee IN CSECT (U38FO ) LENGTH (2) 
424 CINCF 7 alae 1 ee LOCATION (0000184A) IN CSECT (U38FO0 ) LENGTH (2) 813 MERGE aon HEX LOCATION(00001B30) IN CSECT (U38FO ) LENGTH (1) 
412 CMADE DDRES3. HEX LOCATION (0000183C) IN CSECT(U38FO ) LENGTH (2) 432 OLADD an bmer eT aaa Chima i hia ac an eRe esse elated 
717 CNEOO pon renee HEX LOCATION (OOOO1TA7E) IN CSECT(U38FO ) LENGTH (1) 435 OLADR aa LOCATION (00001856) IN CSECT (U38FO ) LENGTH (2) 
832 CSORT yaaa a Soe eee IN CSECT(U38FO ) LENGTH (4) 433 OLAD1 dr cia * peas oe ces ed CSECT (U38FO ) LENGTH (2) 
490 CTABC ay tle X LOCATION(OOQO018CA) IN CSECT (U38FO ) LENGTH (2) 434 OLAD3 aaa HEX LOCATION(00001856) IN CSECT(U38FO ) LENGTH (1) 
416 CTCOD aoe eke LOCATION (00001841) IN CSECT(U38F0 ) LENGTH (1) 207 ONE ABSOLUTE. DEX UE CoooV ooo!) 
413 cTc00 a aaa HEX LOCATION(0000183E) IN CSECT(U38FO ) LENGTH (1) 87 OPTN1 cog HEX LOCATION (O0000180E) IN CSECT (U38FO ) LENGTH (2) 
415 cTcos5 Saar th HEX LOCATION (00001840) IN CSECT (U38FO ) LENGTH (1) 134 OUT ABSOLUTE Se Bk 
856 CTERM ADDRESS HEX ral St Hana IN CSECT (U38F0 ) LENGTH (2) 135 OUTIN ABSOLUTE HEX VALUE (00000001) 
419 CTMMT poe HEX LOCATION (00001844) IN CSECT(U38FO ) LENGTH (2) 165 READI eae ie He eee ee 670 674 Kis Kas 
543 CTMV3 poeheees HEX LOCATION(OO0018FC) IN CSECT(U38FO ) LENGTH(2) ae oer 709 719 730 737 806 815 823 
549 CTMV4 ore aaa HEX LOCATION (00001906) IN CSECT (U38FO ) LENGTH(50) 821 RNF fon HEX LOCATION(00001B3A) IN CSECT (U38FO ) LENGTH (1) 
553 CTMV5 BD PRB So > eet WOCATIONCCUO 28) IN CSECT (U38FO ) LENGTH (1) 0 R1 See ene HE Byes 
559 CTMV6 ADDRESS. HEX LOCATION (0000193E) IN CSECT(U38F0O ) LENGTH (2) 0 R2 REGISTER. HEX VALUE(00000002) 
772 847 659 732 39 740 741 745 748 750 752 
563 CTMV7 ERERES Ss HEX LOCATION (00001944) IN CSECT (U38F0 ) LENGTH (13) aee 757 61 775 778 782 787 792 832 
569 CTMV8 Bape HEX LOCATION (00001954) IN CSECT (U38FO ) LENGTH (2) R4 A eae HEX VALUE (00000004) 
573 CTMV9 Been HEX LOCATION (0000195A) IN CSECT(U38FO ) LENGTH (43) R5 Seat tees HEX VALUE (00000005) 
580 CTMW1 Tk hana HEX LOCATION (00001988) IN CSECT (U38F0 ) LENGTH (2) R7 REG et ene Se eto eae. 650 652 654 657 
586 CTMW2 ADDRESS. HEX LOCATION(00001992) IN CSECT (U38F0 ) LENGTH (31) 660 662 665 667 669 671 673 675 677 
580 679 681 683 685 687 689 690 691 708 
590 CTMW3 ADDRESS. HEX LOCATION(000019B2) IN CSECT (U38F0O ) LENGTH (1) 710 718 720 729 733 736 749 764 766 
581 843 4 772 797 805 807 814 816 822 833 837 
468 CTRLA a EX LOCATION (000018A3) IN CSECT (U38FO ) LENGTH (5) 833 841 847 867 870 874 877 889 890 
465 CTRLB a he HEX LOCATION (0000189B) IN CSECT(U38FO ) LENGTH (5) 111 TCSFL ra a HEX LOCATION (00001832) IN CSECT (U38F0 ) LENGTH(1) 
471 CTRLC ype HEX LOCATION (OO0018AB) IN CSECT (U38FO ) LENGTH(5) 141 TERM Seeo ones HEX VALUE (00000007) 
G74 CTRLD eae HEX LOCATION (000018B3) IN CSECT(U38F0 ) LENGTH (5) 237 TWOO8 ep oOburee Hee eee 
477 CTRLE peg HEX LOCATION (O00018BB) IN CSECT (U38FO ) LENGTH (5) 3 U38F0 are START (00001800) LENGTH (940) ESDID (1) 
480 CTRLF aa HEX LOCATION (000018C3) IN CSECT(U38F0 ) LENGTH (5) 166 WRITI acme Hee ee oeunede*) 
440 CTRL1 ADDRESS. HEX LOCATION(00001859) IN CSECT(U38FO ) LENGTH(5) 
443 CTRL2 PppRess. Hex LOCATION (00001861) IN CSECT (U38FO ) LENGTH (5) Fe ee einer eer aa Een pooner ee LAST PAGE 363 OK IK OG IG i faka ak loki kak kak kiki ikea ak 
446 CTRL3 ADDRESS. HEX LOCATION(00001869) IN CSECT(U38FO ) LENGTH(5) 
449g CTRL4 ADDRESS. HEX, LOCATION (00001871) IN CSECT(U38FO ) LENGTH(5) 
451 CTRLS PEE RES 3. HEE Tecet aon (ONO Kete) IN CSECT (U38F0 ) LENGTH (2) 
454 CTRL6 ADDRESS. HEX LOCATION(0000187E) IN CSECT(U38FO ) LENGTH(4) 
456 CTRL7 : banat 1 ae LOCATION (00001883) IN CSECT (U38F0 ) LENGTH(5) 
459 CTRL8 pppREoss HEX LOCATION (0000188B) IN CSECT (U38F0 ) LENGTH (5) 
462 CTRLI a HEX LOCATION (00001893) IN CSECT (U38F0 ) LENGTH (5) 
418 CTWwOoO rat epee HEX LOCATION (00001842) IN CSECT (U38FO ) LENGTH (2) 
7199 CXIND pee ee LOCATION (00001B20) IN CSECT (U38FO ) LENGTH (1) 
728 CXINF lar Ys eciag 7 peda ede alee gL IN CSECT (U38FO ) LENGTH (1) 
745 CXI02 te HEX LOCATION (OOOO1AA8) IN CSECT (U38FO ) LENGTH (2) 
750 Cx1I03 aa HEX LOCATION (00001AB4) IN CSECT(U38FO ) LENGTH (2) 
752 CXI04 ADDRESS. HEX LOCATION(00001AB8) IN CSECT(U38FO ) LENGTH(2) 
759 Cx106 aaa HEX LOCATION (OOOOTAC8) IN CSECT (U38FO0 ) LENGTH (6) 
761 CX107 ADDRESS. HEX LOCATION (00001AD0) IN CSECT (U38FO ) LENGTH (2) 
775 CXI08 ADDRESS. HEX LOCATION(OO001AF8) IN CSECT(U38FO ) LENGTH(2) 
780 Cx1I10 ADDRESS. HEX LOCATION (00001B02) IN CSECT (U38FO ) LENGTH (1) 


